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This is a ■ncisaie description of PDF-6 LIEF*. intended for readers familiar with the 
LISP 1.5 Programmer's Nanual or who have used LIS? on some other computer. Some of 
the never features (e, g. tho display) a.rfc C-KperiinOntal end subject to change ; In 
such respects this should not be regarded as a final document. 

SOME DISTINCTIVE CHARACTERISTICS 

Top-level typofn fa to EYAL. There 1® no EVAL-QU0TE* 

EQUAL will not correctly compare fined-point numbers to floating-point. 

Also" (EEROP M) is NIL. 

i 

T and NIL Evaluate to T and NIL- There are i*Ot *T* and Fh 

Int e rprel ed va tiebl es h Aftd V a r l$b ]_aa u Jfid f ree In c omp J1 ed £ one t tons B 
at® automatically SPECIAL and m^y be used without restriction to commun¬ 
icate ve'ues■ AlEO nny PROG and LaMEDA variables in a compiled function 
may be declared SPECIAL fe And will be bound and restored correctly. 

CQWWN doe? not axiat. 

Flags Are net allowed j elements on a property list of an atom ere expected 
to be paired, 

■ " ■ ■ ' * •*•■■■.. 1 '.| ■■pr Va . . 

MAP p MAfCAR 3 etc, assume the £frst argument Is the function*, and the 
second is the list* 

Defining of functions ia usually done with DEFFRCF. 

I ■ . ■_ . ' 

DETAILS 

Typoin is CO EVAL; one types OBJECT (followd by a space) Co got the value of art stem, 
or (FN {QUOTE ARC 1) (QUOTE ARG2} . .to apply a function to arguments. (Frequently 
u£Ct£ .arrange their top-level functions to be PSUBR/FEKFRs Co avoid Che necessity of 
quoting chc arguments.) Carriage-return and line-food Characters are Ignored+ Space, 
and comma arc identical a And separate elements of lists ; spaces are ignored whan 
adjacent CO parentheses* coTTimss , and other spaccsE £paee5 also distinguish dpt notation 
from floating-point numbers and decimal integers. (In Oy£put p a space is always 

put to Cat-1 1 si:.e of a -dot notation period.) Slash [/) may be used to quote any Character 
5£ p:art of a P^int name. 

The only i-o devices used by PD?-6 LlSP ate Che on-line Teletype, the DECtapes p and 
the display. Certain characters when typed in set input and output switches fcr 
top-level input 3 READ B and PRINT, Certain functions mentioned Later feed data to 
the display. 

Input-Cut put swit ch sclct X ton c he raCt £rs: 

^ Teletype output DU ] 

Iw teletype output *ff L 3C 3 * iv * n d | kr ', n5r b ° tE * 

f Output devices may be selected 

PKCtap^ output on I . 

DEC tape output off j 



jo DEC1 ap* input on | tfclfctyp« input is initially cr.i ro,'nLin£ a DECtapt; 

, . .. S (•nd-of-filc turns Pf'Ctapa input off and raselc-ci s 

(£ DECtap* input Off j Teletype input. 

|G Quit r inuii*cl£at*Ly returns LISP to the top level* 

These characters are not seen by RE ATI or REAPCh* 

THE ALLOCATOR 

There arc five date, storage ar*4£ in I TSRt 

a) Free Storajte; holds s-expressfens 

b) Tull Word Spate: holds character Strin^a of print wine?; floaliiij*- 
point numbers; large flK&il-point mjpibcrs . 

c) binary Progran Space: holds compiled functions and arrays* 

d) Special Puahno-Ti List: holds bindings of ail special variables* 

a) Regular Pushdown Li&tj holds return addresses for subroutine mils5 
bindings of all locaJ variables; also ia used by various internal 
routines. 

When LISP is loaded, it types out ALLOC? and waits for the user to type 
itl V or N iyes or no). If ¥ Is typed, LISP types out NlWOl 1 -. The user 
then types in an octal number (ended Ly a carriage return) yhleh L'iftP 
will taka as the highest register of available memory* then the program 
§ lcil 8.1 iy requeats typed-ln parameters for the size of Full Word Spate, 

Binary Program Space, Special Pushdown List, and Regular Pushdown List. 

Frt& Storage is given all remaining space* For any typ^fl-ln number, carriage 
return alone niay he typed in, And a standard value will. l>o taken: 

Parameter Standard Valve 

MEMTOP 3717P _ 

FL’LL RIDS 400 

BIN, PROG.5P.1000 

spec.pul 1000 

REG. PUL 1000 

If a is typed e 3 the answer to ALLOC? all standard values arf taken* 

In Cflge of erroc> RUBOUT wilt type X and cancel the currant number. 

OBJECTS 

Qb^GC Indicator Eff^et/valufi (if different fieri LI5F L5) „___ 

r^n ■. ■ bb m m m m mmm hb ■■ &J ^H! HH 1 IN MM m m m m m 

MIL VALUE FalaO valne of predicates a explicitly tested fot by CDHD. 

(EVAL MIL) U MIL <Hih±l ex nib 11*) * (JttKNUM NIL (QUOTE FlXltttO) 
1 b (K NIL finds lists* 

T VALUE True value fif predicates - (EYAL T) is T (Veritas numquaia 

perit)- 

numbers There are Live kjnd^ of nuiah-ETB i fixed-point and £l*£lt ing-point ■ Fixed- 

point n^mb*r§ ±_ 0 and < about 4000 arc represented by a "pointer ' 1 1 
greater chan their value, and no anuition-al Ust structure,- ALL c-thcir 
numbers yse a pointer to full-word spa eft as par 1 - g£ an atom, head it vith 
a FIKSUM or FLONUM indicator, ftu-TT^rlc Type-in: A number typed in uith 
*no or more digits te th£ riftht o£ a decimal point Is tssken as floating¬ 
point j fi number without a deoimS-l point is taken as a fixed-point imcgfr 
in Lb* current input radix, IBASE (initially 8 ); a typed In number ended 
by 4 decimal peiot is n dfici-mo] Integer* Numeric Typo-onfj Output cf " 

floating-point number will have one or more digits to the right of the 
decimal point l cut put of a fixed-point number r r- r il 1 he in the current output 
radix, BASF {Initially 3), ?ir_d if Lhit r^dix is 2? LI3F will end the 
with a decimal point* Arithmetic functions use "contagious floating polls- 
-operand Is floating-point, the result will bfi- 








CAR 

CDR 

CMSj CAble 

COES 

NOOH5 

XCONS 

QWW 

atom 

equal 

COMD 


UST 

not 

NULL 

EPLACA 

i 

RPLACD 

NCONC 

APPEND 

READ 
REA DC K 
FRINJ 

PRINC 


SUER CAE of an 

SUBR CDR &f an 

■ 

h etc* SUERa through 


atom is the ,( pcinter 11 “1 # 
atom is its property list, 

CDDDDR any combina Lion of 1 Co 4 A 1 S and 


r r 


SUBR ' 

SUER 

SUBS 


Takes one argument p CONSis it to EIL, 

CONS with argument* reversed; used to get arguments to a CONS 
evaluated in other order. 


FSUSR 


SUBR ATOM of any number Is T. 


SUER 

SUER 


Salther EQ nor EQUAL will Correctly compare a £iKOd-pOint number 
tc a floating-point number P NQ will work for £ixed-point numbers 
lass than about A^; othetwiSC use EfjUAL, FlOAt ing-point 
numbers arc considered only if their values Are e^nctLy 

e^ual, 


FSUBR 


FSUER 

SUBR 

SUBR 

SUER 

SUBR 


m COND pairs 1 " of pradtcAte and value may have other than two 
elements ^ if the ftrat element evaluates non-null fc each of the 
others is evaluated (in CAR-to-CDR order) a and the yfilve of the 
last is returned for the COND, If there is only one element a 
if it is non-null its value ts returned, if no predicate is 
true, the valu& of the CONS is 3UL P 


Identical in effect. 


SUBR 

LSUBR 

S-UBR 

SUBR 

SUES 

SUER 


Appends together arty number o£ Lists[ evaluates its arguments 
in CAR-to"CDR order and Copies the top Level of a33 but the 
last argument. 


Read* one character from selected input device, 

Frirtta any s-exp resSion* inserting slashes before characters 
which would not otherwise be syntactically correct as part of 
an atom's print name. 

Prints any s-expression; does not insert slashes, Both FRIE1 
and FRINC do not space either before or after the materiel they 
prin t, 



PRINT SUPR 

TERP^I SURR 


Identical to (PRQG2 (TERFRl) (PltfNl xx> (FRttfC (QUOTE / ))> . 
Prints I'trilagi'TStun, line-feed, Value la K3L* 


LISPL 


VALUE, Used by LIS? as th^ number of character Spaces In an output line. 


CtiKCT VALUE 


INTERN 

slier 

XAKMAM 

EUBR 


READLIST 

■ 

$UER 

EXPLODE 

SUER 

EXPLOEEC 

SURR 

FLATSI^R 

SUER 

tyo 

SUER 

REVERSE 

SUER 

EVAL 

SURE. 

APPLY 

SUER 

MEMBER 

SUER 

MEMQ 

EUBft 

SASSCC 

SUER 

ASSOC 

SUER 

SUES! 

SUER 

GENEYH 

SUBR 


Nurabei of charact er Spaces left in current output line; i: C1IRCI 
is p- and LISP outputs a character, it first inserts carrlage- 
teturn-line“fecd and resets C1!?CT to T.Inif.L, 


Argument la pointer to atom structure.; pots s.rjid atom on QB1.IST 
and returns {probably new) atoni pointer. 


Argument is List of atoms whose print names ate single characters 
(actually it takes the first characl Of of each print natiej. 

Value Is pointer to s-OXpresaion (the atoms in which arc not 
automatically put on the QLLIBT) which if printed out would 
be the concatenation o£ the single characters taken, as arguments, 

Like KAJOIAM, but automatically IHTEKHs any atoms appearing in 
the resulting s-expression. 

Argument is s-expressfon; value ds Hit of atoms whose print 
nar.es arc single characters * which concatenated would form the 
print of the argument. For example, (EXPLORE (QUOTE FOQ)) has 
the value (F 0 0). EXPLODE, like PRINl, inserts slashes, so 
(EXPLODE (QUOTE F00/ EAR)) PRIKl's as (F 0 0 // / B A R) or 
FRINC'a as (F 0 0 / BAR), 

EKPLODEC is to EXPLORE as FRINC is to FRINl. Example: 

(.KXPLODEC (QUOTE FOO/ fcAR) ) would PROl as (f (l 0 / h A R) or 

pftlMC as (F 0 0 EAR), 

Argument is e-expressian; value is number of characters in the 
argument if the argument were printed out with PRINl. 

Takes one argument, a fixed-point number; outputs (like PRISC) 
ft character whose ASCII code Is the integer. Its value is not 
useful. 


Reverses top lovel of a list. 


Takes 1 ot 2 arguments. Second should not be given unless It 
is desired to use other than the current e-Hst- 


(APPLY fh (args) alist) or (APPLY fn (ergs))* 


usOS EQUAL 

like MEMBER, but uses FQ, 


GWHU CWl* etc. 



PRQG2 

SUBR 

Second of any nufnBEr Of arguments * 

MAFLIST 

SUER 

tKAFLlST fn li si) 

MAFCAR 

SUER 

(MAFCAR f tl list) 

MAP 

SUER 

Like. XAPL1BT, hyt tfl turns NIL; does no CON§es+ 

HAFC 

SUBR 

Like HAFCARj, but returns NIL- doe^ no CONS-iSi 

LENGTH 

SUBR 

RpEumE fixed-point nunibetr P {atom [£l ■+ P; 

T - add! [length [edr [A]J]]J 

LAST 

SUBR 

MUJe fatoni [edr [£] ] -+ £; 


- 

T ^ lest [edr [if]]] 

PLUS 

LSUBR 

A + B 4 C 4 

TIMES 

LSUBR 

A * B * C * pn p 

DIFFERENCE 

LSUER 

A - E — -C - 

HIHU5 

SUER 

- A 

QUOTIENT 

LSUBR 

A / (... * C + B) 

REKA1HDER 

SURR 

Works only for fitted-point numbers. 

ADP1 

SUfiR "1 

| 

B . ■ ■ 

* Basult is fifc^d or floating point* same as the argument 

SUBl 

SUER ) 

Is * • ’ 

1 ;J 

muheerp 

SUER 

1 ■ . ■■ vi- 

OREATEfP 

SUER 


LES&P 

1 

■ 

JSER0P 

SUBR 

i ■ , ; • _ ■ • ' ■ _ ... ■■ ".-.r ■ ■ ■ 

SUER 

Works only for fixed-polat ", 

KIMUSP 

SUBR 


retob 

FSUBft 

Tikes any number of atomlt arguments; value Is NIL, 

OR 

RSUER 

Returns first non-null argument or NIL; does not evaluate arguments 
past the one it returns. 

Aim 

FSUBR 

Returns last argument or NIL + does mot evaluate arguments past 



the first NIL. 

PROG 

FSUBR 

■ 

SET 

SU3R " 

1 

t Use SET, SETQ imtead of CSET, CSETQ. 

SETQ 

P5UBR J 

| 

CO 

FStfER 


RETURN 

SUBR 




i"V r l v 


GETL 

uakhuh 

™LR 

TIME 

SETTIHE 

FIX 

CC 

CGGAG 

Speak 

EKAHTHE 

deposit 

PUTPROP 

ERHPRQP 

DEFPROF 

EAKGAG 


SUER 


SUER 


SUER 


LStlEft 


SUER 

SUER 

SUER 

SUER 

SUER 

SUER 


AI [ a; b ^ 3 [mil 3 [ cdt la]] **■ NIL; 

eq iL^adr [-a 1 ^ h\ ■+ csddr ^ a ] ^ 

T ■+ get Icddr [a]; b]]] 

A typical n^CT (GET (QUOTE atom) (QUOTE indicator)) returns 
the property (NIL if it is absent). 

Similar to GET^ but second argument 3s a list of indicators. 
Value returned is CD,. ,Dft of first argument auch that 
(CAR (GETL ...)) is the indicator and (CADR (CETL ,„.)) is 
the property- GETL S ilia GET, stops at the first satisfactory 
pnir on the property list. 

Turns a pointer (machine address) into a numberi the second 
argument aho ll 1 lL be (QUOTE FIXSOH) nr (QUOTE HOHtfM) determine 
the type of the result. 

Used in the form (EOOLE n a b c ,,,),^iA 36-bit bitwise Boolean 
operation is performed and the result and b* etc, The 
number n_ selects the operation* according to the following charts 

bit of a/bit of b 

0 1 

^ n l n 2 where n^ is the ith bit 
1 ft ^ of , 

Examples of ns 1 is LOCATED j 7 is LOGOR; 6 is LGGKOR* 


Returns value of t()-cycle elapsed time counter. 

Sc I a (TI ME) c ou nt er t o va Ine o f a r gumeut* 

Argument is fixed- or floating-point number; value is (truncated) 
fixed point value of argument, 

Takos llo STEomcnis* causes garbage collection* returns value NIL, 

(GCGAG T* turns dci typeout of statistics fa - each garbage collection, 
(CCGAjG NIL) turns it off, 

Hds valu^ of CONE -counter, 


■ SUER Argument is number* which ia taken as an absolute machine juldrcss; 

vh3u& is &e>n£ of Said address ns a fixed-point number- 

SUER First argument it an address ? be for EXAMINE; second argument 

is £ fixed-point number to be deposited thereinto, 

SUBR Adds a property to *t&m, (PUTFRQF (QUOTE atom) [QUOTE propctty) 

(QUOTE ii'dicatur)) Value is the property, 

SUBR Rem qv <'£ % property. (REMPROF (QUOTE atom) (QUOTE Indicator)) 

Value T U property was th^ro* NIT, otherwise, 

FftifER A common top-level defining funr.tlcni: J.jk^ VUTTftO? fe axtopt 

(e) argumenta are net evaluated B (b) value 1$ the atonu 

SUBR (EAKGAG T) enables backtrace printout on any LISP error; (BA, L-I' 

NIL) disables it, A backtrace is printed & ?ories of funeti >i 
must r£C(2nt (deepest) first: 



Eft&SET 

ERE 

RASE 

IG^SE 

BFORC 

WEWB 

AHUlY 

stque 

HSTOELE 

COMPILE 

LAP 


F5UDR 


fnl-fnZ 

fol-EVALAWS 


fnl-ENTEJt 

1 -fnl 


fnl calls fn? 

argumonts being evaluated preparatory 
to calling fnl 
fnl b&irig evaluated 
? represents an internal routine 


(ERREET (fn args . ..)) has the value NIL if An error OCc-urtf while 
evslotting (in ergs.*.) .ir_d LI$T of the value of (fn argSrr.) 
otherwise, 


SUER Causes a non^pminting error, 

VALUE Radix of fixed-point number output* May bo modified by SETQ, 

VALUE Radix of fixed-point number input, M*y modified by 5FTQ-, 

VALUE Current lowest unused location of B-inary Program SpaC-e* 

VALUE Highest location available for use as hin^ry Program Space: K 

F3UBR (ARRAY name par diml dimZ sets up ng^e as an art Ay (Actually 

as a SUBR) + paf should be T to protect. Array elements from 
garbage collect ion ^ otherwise !NIL. Then (name IiuJhI tafc ) 

FEUER returns the value of an element ^ and (STORE (njnie ind.Kl IndxZ . . ,) 

nauval) set? the value of An element- An array r^ay have m mCra 
than 5 dimensions; indices run from 0 to dim-I. 

FETJER (NETORE (naii'e indxl ind*2 , **) number) deposits the low^erder 

16 hits of the numb er in the array P Both S STORE end STORE eval¬ 
uate their scroud argunent before their first. 

FSUER Arguments ar-G names of EKFRs and FEXPRs . COMPILE uses PRINT to 

output each argument function in LAP-readable machine language. 


FEUBR or 7EXFR (LAF name indicator) * where the indicator is SUBR a FSUBR „ 

or LEUER* causes LAF to call READ repeatedly., each time reading 
one tag or storage word. An atoQ is taken as a tag h except for 
NIL which indicates the end of the function being read; a non-- 
atomic s-expression is taken as a storage word in the following 
format : (Inst Act Adr) or (Inst Acc Adr ln;l ?0 ■ .Ins t should be 
a F 31 F-& instruction mnemonic y optionally suffixed $ for the 
indirect bit, Acc should he a number l - 17 or F h the push¬ 
down pointer- Adr may bo a numeric machine address p a tag in 
that function,, a negative number„ one of certain symbols for 
entry points to LI 5 F internal routines, or a list in one of 
the following forms^ (QUOTE atom) a pointer to atom ! (SPECIAL 
atom) ib£ $p£Cial/value cell of atom ; (E atom) like QUOTE, nsed 
yban Atom 1 $ th* name of a function being eatledj (C w x y *) 

A constant ¥ i.e a A location Containing storage word (w x y J.) « 
Indx an optional laft-half quantit>% such as an index register 
specification; fndx takes the ^nme form AS Adr- 

The best way to get band"coded functions into the system is with LAP, 

A StfRR may he^c no more rh-sn ^ arguments» The value oF the Ffr^l iS 
n*petted In register l a that of the second in Z, etc, The value oi 
function is xeturned in re^sgar 1 . Locations I through 7 are the 0 :U .Y 
Accumulators available for p?c within a subroutine. An FSE'BR bos on^ 
argument t in It (Ihe current a^IisC may bo gotten by calling * A "LARI/ ■ ) 



SPECIAL 


DISL1ST 


BISIN! 


niSAJ! 


DISCMT 


An LSU&R may have ony number of atgLLmesrta“ their values are* on the pushUo^m 
list „ last argument nuArifit the f end . The £lr'£^ instruction sn T.?UEK 
perform^ roust be (J£f 3 *LCALEO r 


Four UUQ (trap) instructions flre available for LAP* CALL t JCALL* CALLF t 
and JCALLf* these to be use! for function calls in the fori 1 . 

(GALL n (E fnnet)) where the number _n is the number of arguments be Jug 
transferred (or 3 coda for the type of fuftC on beIng called) as fellows: 

0^5 colling SUES or EXPR* {1 to 5 arguments. 

16^ colling LSUbR, arguments an pushdown liat t "(number of 

arguments) in rSgister &* 

17^ call ins FEUbR ot FEXPK, arguaant list in h 

yhen ana of these IJtJOs is first executed p the UUQ handler will : 

call the interpreter if calling OO EXPEt or FEfPR; 

Cthorwise in the case Of CALL tfLM change the CALL L'L'O to a 
PUSHJ to the function code and execute said FUEHJ' in the case 
of JCALL will change the JCALL to a Jft3T to the function code 
and CxOcucta said JRST* In the: ta&e of CALLF vtli FU&HJ to the 
function but not change the UUO; in the caa-e of JCaLLF will 
JftST hut not oh^n^a the UEJOu 

The F forms of uuo are necessary to call functions whose names are computed ; 
the J forms snro code in the case of (RETURN (fn + - -)) - 

F&U&R Part of the Compiler. Takes any number uF Arguments, which are 

variable names 4 This define? the^ as SPECIAL to the compiler. 

All variables are either SPECIAL* or local to a particular compiled 
function. CommunicaLton of variable values between functions,, 
and within interpreted functions* must be done with 5FECIAL 
variables. All interpreted variables are automatically SPECIAL. 
Except as countermanded by a (SPECIAL , „,) 5 the compiler assumes 
all LAHEDA“ and PRQG^varlables in functions it compiles are 
local to ?ajd function?, Free variables used in a function 
being compiled are assumed SPECIAL, and the compiler prints out 
(ver UNDECLARED*), 3£ a function not define! is celled by a 

function being Ctinpll&dp the Compiler prints Out <£unc UNDEFINED) 
and assumes it will ba a SUER or EXPR h 


VALUE 


SUBfl 


SUE 3 R 


VALUE 


Set by the user, and tifcen by MSR, as a list of arrays to be 
displayed on the scope, Fo»r the case of one such array, the 
form is (SETQ DISLIST (LIST (GET (QUOTE ar rename) (QUOTE SUER)))). 
The successive array elements are the actual IE-bit data words 
sent to the display. 

(DISXKI (QUOTE arrayname)) initializes an array to be displayed 
fro:^, An array should not be put on the DISLIST until it has 
been DJSll^led- DISINI erases the previous contents of the array. 

(DI5AP (QUOTE arrayname) par arg} dn effect performs a FEINT 
Ot FRINC (according a£ par evaluates to T or NIL) of ar^ into 
an array being displayed. m othtr words „ the tost of an s- 
«Epr fission ds appended to the text currently in such an array- 

Number of character spaces remaining in current line on scope. 
(DISAD inserts carrioge^rcturn p line-feed when this reaches p 
and MGCtS it to LINE!,-) 


DISINI puts data in th& array to initialize the display at the upper E ■* fC 
corner. Hence if mere than one *ucb array wore on the DISLIST their conum :- 



PSTAME 

FIXNUM 

FLQKUH 

VALUE 

LAMBDA 

LABEL 

SUBR 

f&u&k 

AEG 


LSUBR 

ERFR 

FEXFR 

SYM 

FUKARG 

MACRO 


weuld overwrite each other -OH thft scope. However* by the funcilDn Xi- 
it is possible to put data in an array for display ■ id her clinn the u^vr- 
left ini E tal i ton of DESlUl and Che: character strings of DT5AU. Ill 
that Case it nil gilt useful to have no re than, one d is playvd arra^. For 
further details on the display feature * consult a PDR-G Sy-sttfmF pragra;. - 

Indicator fer print name structure, 

I rid it a £ o r for f Ixe d -■ p oint number. 

tndicatir for fInatin^-pcint number* 

Indicator for value property (similar to AFVAL of LISP 1.5): 
the value is actually CDR of the property (CAR of it is NIL) , 

So (SETQ F00 (QUOTE (A R C))) has the Sane c Elect as (DEFPROF 
FQO (UIL ABC) VALUE), 



Indicator for subroutine.., 

Indicator for special-fona subroutine. .. 

SUER The format ("LAMBDA VAR (form * ++ >), where the "LA.MBPA-lia t 1 ' 

is an atom* is interpreted AS a function which takes any number 
of arguments. The bound variable VAR takes tha value of the 
number of arguments actually supplied ac sny given tall. The 
values of these arguments are available with the notatiOfi 
(ARG 1) 3 (ARG 1) h etc. The compiler will compile such an EXPR 
into an LSUBR* which will perform ch* same. 

Indicator for LSUBR, 

Indicator for s^expression function- 

Indicator far s-express ion spatial form. A FRXPR H S LAMBDA-1tst 
may have ) or 2 elements. 

Indicator for symbol value used by lAF* 


Indicator of a MACRO property! expended a( Compile time (acid 
properly simulated by the interpreter)i The property should 
be a function of GP£ argument, When a call is encountered to 
a function with a KACRO property^, the list which is Che futlctior 
cal] is f&d p un*vi§luatod p Co ihe macro def inition as the one 
AtgUienti (Erg. CAR of the argument Is the function name,) 

Then the MACRO property function is efcpand^d * rcciijrsJv-ely if 
necessaryj with CAR, CaDR, etc. of its argument roplnccd by 
the elements of the function call as writ ton. For example* 

CAN SCONS flight be defined as a macro in tho following vay : 

(&EFRROP CONSCONS (LAMBDA (L) 

(CORD ((KULL (CODE 1.)) (CADR L)) 

(T (LIST (QUOTE COKS) 

(CADR L) 

(COMB (CAR L) 

(CDDR L)))H) 


MACRO) 



In which ease [CONSCONS A B C] would expand to 

(COM3 A (CONSCORS B C» a than to 

(COM3 A (COWS B (O0MSOOM& C>)) F ami finally 

(CONS A (CQNS EC)] which it; what would be compiled 




or interpreted- 

OBLIST 

VALUE 

The object list* a list of buckot§ atoms t 

spec aim 

SYK 

Celled to cause now-l^vsl hindi-ngs of special variables. A use 
would resemble (JS? 6 SFECRDP) (pi |S VaEU) (ft g VAk2) etc- (INST - , ,) 

SPECSTR 

SYM 

Called by PUSUJ to- restore most recent batoh of special bindings- 

NUMVAL 

STM 

(PUSHT P NUMVAL) assures a LISP number In t eturft!■": the JC-bit 

numeric value In 1 end th£ type (FEXHUtf or FLuNLDj) In 2, 

FUtlA 

SYM 

(PUSH! I J FIX1A) turns the- actual fixtd-point llunber In 1 into 
a LISP number. 

*tlU£ 

SUBR 

PLUS of 2 arguments. 

frTIMES 

SUBR 

TIMES of 2 arguments. 


SUBR 

DIFFERENCE cf 2 arguments. 

*QUO 

1 ■ 1 

SUER _ 

■ 

QUOTIENT of 2 argument*- 

*APFENB 

EUBR 

AFFEKD of 2 argumOfttS^ 

FUNCTION 

FBUBR 

Doos not cause FURARG binding whon interpreted, 

■ 

^FUNCTION 

FSUGR 

Causes FUNARC binding when interpreted; otherwise identical to 
FUNCTION, 

TOC 

FSUBR 

In-out device selection,. The atgument 1^ ENFtuDEd; the resuJt^ng 
Sharacter string Is rodifled as If it had boon typed In with 
the CTRL key held; i L nd then it is f*d to the i-o switch processor- 
for example^ (IOC VR) has the smo effect as typing in VR, 

IOG 

SUBR 

(IOG chars (FUNCTION fn)) saves up the current state of alt 1-0 
switchesj then feeds the value of chars at the l -“0 switch processor^ 
thon performs fn: then restores the eld i^o switch settings. 

NOUUO 

SUBR 

(NOUUO T) prohibits the UUG handler from changing UUO calls to 

FU3ILJ Or JR5T, (NOUUO NIL) restores that ability. 

*eval 

SUBR 

EVAL of 1 Argument h 

*RSET 

SURE, 

h 

( ft R£ET T) prevents restoring bindings of special vftriablea when 
returning to the top level due to an ejrrerH (*R£ET NIL) resumes 
such to storins. 


CURRENT FRDDLEHS 

If in the list of performed values of ft CONS argumtht of a PR0G2 lint LVu: 
occur.* £ RETURN or CO > any following values will be performed If the ojtf-i'CFS-i 
is interpreted h but not if it Is compiled. 






